home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / intee3.pov < prev    next >
Encoding:
Text File  |  1992-04-23  |  1.9 KB  |  73 lines
  1. // Persistence of Vision Raytracer
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.
  4. // Image by Dan Farmer.
  5. // Demonstrates CSG intersection,  layered stone texture.
  6. // Time: about 3 hours @640x480+a0.2 on 486/33
  7.  
  8.  
  9. #include "include.inc"
  10.  
  11. camera {
  12.    location <0.0  10  -27>
  13.    direction <0.0 0.0  1.0>
  14.    up  <0.0  1.0  0.0>
  15.    right <1.33333 0.0 0.0>
  16.    look_at <0 0 0>
  17. }
  18.  
  19.  
  20. // Light source
  21. #declare Light1 = 0.9
  22. #declare Light2 = 0.5
  23. object { light_source { <-10 20 -25> color red Light1 green Light1 blue Light1 }}
  24. object { light_source { <0 0 0> color red Light2 green Light2 blue Light2   }}
  25.  
  26. //#declare Color1A = color DustyRose
  27. #declare Color1A = color LightSteelBlue
  28. #declare Color1B = color DarkSlateGray
  29. #declare Color2A = color DarkSlateGray
  30. #declare Annulus = 0.95
  31. object {
  32.     intersection {
  33.         quadric { Cylinder_X }
  34.         quadric { Cylinder_Y }
  35.         quadric { Cylinder_X inverse scale < 1  Annulus Annulus > }
  36.         quadric { Cylinder_Y inverse scale < Annulus  1 Annulus > }
  37.  
  38.     }
  39.     // Underlying surface is very subtly mottled with bozo
  40.     texture {
  41.         ambient 0.25
  42.         bozo
  43.         turbulence 0.25
  44.         color_map {
  45.             [0.0 1.0 color red 0.9 green 0.75 blue 0.75
  46.                      color red 0.6 green 0.6 blue 0.6 ]
  47.         }
  48.         scale <.4 .4 .4>
  49.     }
  50.  
  51.     // Second layer texture has some alpha values, yet a fair amount of color
  52.     // Viening is kept quite thin.
  53.     texture {
  54.         Glossy
  55.         granite
  56.         color_map {
  57.             [0.0 0.9 color Color1A alpha 1 color Color1A alpha 0.5 ]
  58.             [0.9 1.0  color Color1B color Color1B ]
  59.         }
  60.         scale <2 2 2>
  61.         phong 0.25
  62.         phong_size 75
  63.         brilliance 4
  64.     }
  65.  
  66. bounded_by {
  67.     sphere { <0 0 0> 1.5 }
  68. }
  69. scale <10 10 10>
  70. rotate <0 45 0>
  71. }
  72.  
  73.